
module Tests.FokkerTest where

import FokkerEquation
import Data.Packed.Vector

x0 = fromList [0,0,  0,  1,  0,  0  ,0]
x1 = fromList [0,0,  0.05,0.9,0.05,0  ,0]
x2 = fromList [0,0.05,0.1,0.8,0.1,0.05,0]

f  = toFokkerMatrix (x0, x1, x2)

s  = fullSolveFM (x0, x1, x2)

r = fullSolveReg 0.1 (x0, x1, x2)
